home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / vivid / getat2.dir / 00093_Script_93 < prev    next >
Text File  |  1996-11-09  |  987b  |  34 lines
  1. on exitFrame
  2.   
  3.   repeat with Loop in [34,36,35,37,38,32,33,39,40,41] --text objects
  4.     
  5.     if the casttype of cast the castnum of sprite Loop = #digitalvideo then
  6.       set the video of cast the castnum of sprite Loop to FALSE
  7.     end if
  8.     set the visible of sprite Loop to false  
  9.   end repeat
  10.   updatestage
  11.   global cast_m
  12.   if cast_m<>255 then
  13.     spritebox 48,0,0,the stageright-the stageleft,the stagebottom-the stagetop
  14.     -- set the locv of sprite 48 to (the stagebottom-the stagetop)/2
  15.     -- set the loch of sprite 48 to (the stageright-the stageleft)/2
  16.     set the castnum of sprite 48 to cast_m
  17.     updatestage
  18.     
  19.     if the casttype of cast cast_m = #digitalvideo then
  20.       set the video of  cast cast_m to false
  21.       set the video of cast cast_m to true
  22.     else
  23.       set the visible of sprite 48 to true  
  24.       --  puppettransition 38
  25.       exit
  26.       
  27.     end if
  28.   end if 
  29.   
  30.   
  31.   set the visible of sprite 48 to true  
  32.   
  33. end
  34.